﻿Namespace Cartes.MatieresPremieres.AgeI

    Public Class ExplorationForestiere
        Inherits CarteMatierePremiere

        Public Overrides ReadOnly Property NomBatiment As String
            Get
                Return "Exploration forestière"
            End Get
        End Property

        Public Overrides ReadOnly Property Age As Integer
            Get
                Return 1
            End Get
        End Property

        Public Overrides ReadOnly Property FrequenceCarteNombreJoueur As List(Of Integer)
            Get
                Return New List(Of Integer) From {3}
            End Get
        End Property

        Public Overrides ReadOnly Property CoutRessource As List(Of Carte.TypeRessouce)
            Get
                Return New List(Of Carte.TypeRessouce) From {Carte.TypeRessouce.PieceMonaie}
            End Get
        End Property

        Public Overrides ReadOnly Property Gratuite As List(Of Carte)
            Get
                Return New List(Of Carte)
            End Get
        End Property

#Region "Constructeur"
        Public Sub New()
            Me.Effet.Add(New List(Of Carte.TypeRessouce) From {Carte.TypeRessouce.Pierre})
            Me.Effet.Add(New List(Of Carte.TypeRessouce) From {Carte.TypeRessouce.Bois})
        End Sub
#End Region
    End Class
End Namespace
